home *** CD-ROM | disk | FTP | other *** search
/ Total Network Tools 2002 / NextStepPublishing-TotalNetworkTools2002-Win95.iso / Archive / IRC Chat / polaris2001v304.EXE / Addons / color-chg.ini < prev    next >
Encoding:
INI File  |  2001-03-10  |  5.0 KB  |  79 lines
  1. [Addon]
  2. Script=Nicklist Color Change
  3. Version=1.4
  4. Author=JetsNY
  5. Desc=An addon to change the colors of your nick, voiced nicks and opped nicks.
  6. Date=March 16th, 2000
  7.  
  8. [script]
  9. n0=alias color-nick {
  10. n1=  if ($r.set(Nick.Colors,Colors) != On) { halt }
  11. n2=  var %i = 1
  12. n3=  :next
  13. n4=  if (%i > $nick($chan,0)) { halt }
  14. n5=  if ($nick($chan,%i) isop $chan) { cline $r.set(Nick.Colors,Color.1) $chan %i }
  15. n6=  elseif ($nick($chan,%i) ishelp $chan) { cline $r.set(Nick.Colors,Color.2) $chan %i }
  16. n7=  elseif ($nick($chan,%i) isvo $chan) { cline $r.set(Nick.Colors,Color.3) $chan %i }
  17. n8=  else { if ($nick($chan,%i) isreg $chan) { cline 15 $chan %i } }
  18. n9=  if ($nick($chan,%i) == $me) { cline $r.set(Nick.Colors,Color.4) $chan %i }
  19. n10=  inc %i 1
  20. n11=  goto next
  21. n12=}
  22. n13=
  23. n14=On *:JOIN:#:color-nick
  24. n15=On *:OP:#:color-nick
  25. n16=On *:VOICE:#:color-nick
  26. n17=On *:HELP:#:color-nick
  27. n18=On *:DEOP:#:color-nick
  28. n19=On *:DEVOICE:#:color-nick
  29. n20=On *:DEHELP:#:color-nick
  30. n21=
  31. n22=Dialog Color-Chg {
  32. n23=  title "Nicklist Color Changer"
  33. n24=  size -1 -1 555 291
  34. n25=  box "", 1, 5 1 545 250
  35. n26=  check "&Enable Nicklist Colors", 2, 15 25 125 15
  36. n27=  text "&Ops:", 3, 16 50 105 13
  37. n28=  list 4, 15 63 105 100
  38. n29=  text "&Helps (Not on Relicnet):", 5, 136 50 130 13
  39. n30=  list 6, 135 63 105 100
  40. n31=  text "&Voices:", 7, 256 50 105 13
  41. n32=  list 8, 255 63 105 100
  42. n33=  text "&Me:", 9, 376 50 105 13
  43. n34=  list 10, 375 63 105 100
  44. n35=  button "&Random", 11, 490 124 50 22
  45. n36=  text "The nicklist colors option is to change colors of different nick types in the nicklist.  You can also turn the colors off if you don't like them by unchecking the Enable Colors checkbox.  It's better if you choose colors that are nice on black and white because those are the most common colors of backgrounds for people on IRC.  NOTE: You can always type /color-nick to apply new color settings if very few people join a certain channel.  Just make sure that the channel you want to apply the settings on is active.  NOTE: After you apply settings, you may need to type /color-nick to manually update the colors.", 12, 15 165 525 80
  46. n37=  button "OK", 498, 300 261 80 25, ok
  47. n38=  button "Cancel", 499, 385 261 80 25, cancel
  48. n39=  button "&Apply", 500, 470 261 80 25
  49. n40=}
  50. n41=
  51. n42=On *:dialog:Color-Chg:*:*:{
  52. n43=  if ($devent == init) {
  53. n44=    dla Color-Chg 4 00 - White,01 - Black,02 - Blue,03 - Green,04 - Red,05 - Brown,06 - Purple,07 - Orange,08 - Yellow,09 - Light Green,10 - Cyan,11 - Light Cyan,12 - Royal Blue,13 - Pink,14 - Grey,15 - Light Grey
  54. n45=    dla Color-Chg 6 00 - White,01 - Black,02 - Blue,03 - Green,04 - Red,05 - Brown,06 - Purple,07 - Orange,08 - Yellow,09 - Light Green,10 - Cyan,11 - Light Cyan,12 - Royal Blue,13 - Pink,14 - Grey,15 - Light Grey
  55. n46=    dla Color-Chg 8 00 - White,01 - Black,02 - Blue,03 - Green,04 - Red,05 - Brown,06 - Purple,07 - Orange,08 - Yellow,09 - Light Green,10 - Cyan,11 - Light Cyan,12 - Royal Blue,13 - Pink,14 - Grey,15 - Light Grey
  56. n47=    dla Color-Chg 10 00 - White,01 - Black,02 - Blue,03 - Green,04 - Red,05 - Brown,06 - Purple,07 - Orange,08 - Yellow,09 - Light Green,10 - Cyan,11 - Light Cyan,12 - Royal Blue,13 - Pink,14 - Grey,15 - Light Grey
  57. n48=    if ($r.set(Nick.Colors,Colors) == On) { did -c $dname 2 }
  58. n49=    if ($r.set(Nick.Colors,Color.1) !isnum 0-15) { did -c $dname 4 $gettok(2 3 4 5 6 7 8 9 10 11 12 13 14 15,$rand(1,14),32) } | else { did -c $dname 4 $calc($r.set(Nick.Colors,Color.1) + 1) }
  59. n50=    if ($r.set(Nick.Colors,Color.2) !isnum 0-15) { did -c $dname 6 $gettok(2 3 4 5 6 7 8 9 10 11 12 13 14 15,$rand(1,14),32) } | else { did -c $dname 6 $calc($r.set(Nick.Colors,Color.2) + 1) }
  60. n51=    if ($r.set(Nick.Colors,Color.3) !isnum 0-15) { did -c $dname 8 $gettok(2 3 4 5 6 7 8 9 10 11 12 13 14 15,$rand(1,14),32) } | else { did -c $dname 8 $calc($r.set(Nick.Colors,Color.3) + 1) }
  61. n52=    if ($r.set(Nick.Colors,Color.4) !isnum 0-15) { did -c $dname 10 $gettok(2 3 4 5 6 7 8 9 10 11 12 13 14 15,$rand(1,14),32) } | else { did -c $dname 10 $calc($r.set(Nick.Colors,Color.4) + 1) }
  62. n53=  }
  63. n54=  if ($devent == sclick) {
  64. n55=    if ($did == 11) { did -c $dname 4 $gettok(2 3 4 5 6 7 8 9 10 11 12 13 14 15,$rand(1,14),32) | did -c $dname 6 $gettok(2 3 4 5 6 7 8 9 10 11 12 13 14 15,$rand(1,14),32) | did -c $dname 8 $gettok(2 3 4 5 6 7 8 9 10 11 12 13 14 15,$rand(1,14),32) | did -c $dname 10 $gettok(2 3 4 5 6 7 8 9 10 11 12 13 14 15,$rand(1,14),32) }
  65. n56=    if ($did == 498) || ($did == 500) {
  66. n57=      if ($did($dname,2).state == 1) { w.set Nick.Colors Colors On } | else { w.set Nick.Colors Colors Off }
  67. n58=      w.set Nick.Colors Color.1 $gettok($did($dname,4,$did($dname,4).sel).text,1,45)
  68. n59=      w.set Nick.Colors Color.2 $gettok($did($dname,4,$did($dname,6).sel).text,1,45)
  69. n60=      w.set Nick.Colors Color.3 $gettok($did($dname,4,$did($dname,8).sel).text,1,45)
  70. n61=      w.set Nick.Colors Color.4 $gettok($did($dname,4,$did($dname,10).sel).text,1,45)
  71. n62=    }
  72. n63=  }
  73. n64=}
  74. n65=
  75. n66=menu menubar {
  76. n67=  -
  77. n68=  Nicklist Color Settings:dopen Color-Chg Color-Chg
  78. n69=}
  79.